﻿
Partial Class Detail
	Inherits RoutablePage

	Protected Sub animals_Load(ByVal sender As Object, ByVal e As System.EventArgs)

		Dim filters = From v In RequestContext.RouteData.Values _
		  Select String.Format("@Name='{0}'", v.Value)

		animals.XPath = "Animals/Animal[" + filters.FirstOrDefault() + "]"

	End Sub

End Class
